Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE06/TIPTRIX/LISTING5.PAS

Pascal/Delphi Source File | 1996-01-13 | 304 b | 13 lines

TForm1 = class(TForm)
public
  procedure CreateParams(var Params: TCreateParams);
    override;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    Style := Style and not (ws_Border or ws_ThickFrame) or ws_Popup;
end;